SPACE 1

home *** CD-ROM | disk | FTP | other *** search

/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / misc~1 / 617 / tutor / stos / tutor.bas (.txt) < prev next >

Wrap

Atari STOS Basic | 1992-05-28 | 80.0 KB | 415 lines

10 REM 100 GOSUB 1000 REM ~~~~~~~~~~~~~~~~~~~~ Passed ~~~~~~~~~~~~~~~~~~~~ 1010 LOCATE 1020 REPEAT 1030 IF 1040 RETURN 1050 REM ~~~~~~~~~~~~~~~~~~~~ Failed ~~~~~~~~~~~~~~~~~~~~ 1060 LOCATE 1070 IF 1080 IF 1090 PEN 110 EXTENSION (Index #3) (Token 0xa4) 1100 REPEAT 1110 IF 1120 IF 1130 RETURN 1140 REM ~~~~~~~~~~~~~~~~~~~~ Check for mistakes ~~~~~~~~~~~~~~~~~~~~ 1150 VARNAME 1160 IF 1170 FOR 1180 VARNAME 1190 FOR 120 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 1200 IF 1210 INC 1220 NEXT 1230 IF 1240 WINDOW 1250 RETURN 1260 REM ~~~~~~~~~~~~~~~~~~~~ Show Mistake ~~~~~~~~~~~~~~~~~~~~ 1270 IF 1280 LOCATE 1290 IF 130 VARNAME 1300 RETURN 1310 REM ~~~~~~~~~~~~~~~~~~~~ Mistake ~~~~~~~~~~~~~~~~~~~~ 1320 WINDOW 1330 PEN 1340 PEN 1350 CLEAR KEY 1360 REM ~~~~~~~~~~~~~~~~~~~~ Select lesson ~~~~~~~~~~~~~~~~~~~~ 1370 IF 1380 VARNAME 1390 LOCATE 140 REPEAT 1400 LOCATE 1410 REPEAT 1420 LOCATE 1430 VARNAME 1440 UNTIL 1450 VARNAME 1460 RETURN 1470 REM ~~~~~~~~~~~~~~~~~~~~ Select music ~~~~~~~~~~~~~~~~~~~~ 1480 VARNAME 1490 RESTORE 150 GOSUB 1500 FOR 1510 PEN 1520 REPEAT 1530 LOCATE 1540 VARNAME 1550 UNTIL 1560 VARNAME 1570 IF 1580 RETURN 1590 REM ~~~~~~~~~~~~~~~~~~~~ Load Document ~~~~~~~~~~~~~~~~~~~~ 160 UNTIL 1600 PEN 1610 VARNAME 1620 HIDE 1630 IF 1640 RETURN 1650 VARNAME 1660 IF 1670 VARNAME 1680 REM ~~~~~~~~~~~~~~~~~~~~ Load lesson ~~~~~~~~~~~~~~~~~~~~ 1690 PEN 170 CLS 1700 VARNAME 1710 HIDE 1720 IF 1730 RETURN 1740 VARNAME 1750 IF 1760 RETURN 1770 REM ~~~~~~~~~~~~~~~~~~~~ Set key speed ~~~~~~~~~~~~~~~~~~~~ 1780 VARNAME 1790 LOCATE 180 END 1800 LOCATE 1810 LOCATE 1820 REPEAT 1830 VARNAME 1840 UNTIL 1850 VARNAME 1860 VARNAME 1870 RETURN 1880 REM ~~~~~~~~~~~~~~~~~~~~ Set key delay ~~~~~~~~~~~~~~~~~~~~ 1890 VARNAME 190 REM ~~~~~~~~~~~~~~~~~~~~ Start lesson ~~~~~~~~~~~~~~~~~~~~ 1900 LOCATE 1910 LOCATE 1920 LOCATE 1930 REPEAT 1940 VARNAME 1950 UNTIL 1960 VARNAME 1970 VARNAME 1980 RETURN 1990 REM ~~~~~~~~~~~~~~~~~~~~ Keyboard tester ~~~~~~~~~~~~~~~~~~~~ 20 REM ~~~~~~~~~~~~~~~~~~~~ Typing Tutor - by R.Gale ~~~~~~~~~~~~~~~~~~~~ 200 IF 2000 WINDOW 2010 WINDOW 2020 CLW 2030 IF 2040 FOR 2050 REPEAT 2060 READ 2070 UNTIL 2080 LOCATE 2090 LOGIC 210 VARNAME 2100 MUSIC 2110 VARNAME 2120 REPEAT 2130 LOCATE 2140 LOCATE 2150 VARNAME 2160 IF 2170 LOCATE 2180 REPEAT 2190 IF 220 REPEAT 2200 IF 2210 VARNAME 2220 PEN 2230 LOCATE 2240 UNTIL 2250 CLICK 2260 VARNAME 2270 PEN 2280 VARNAME 2290 IF 230 WINDOW 2300 IF 2310 LOCATE 2320 LOCATE 2330 LOCATE 2340 IF 2350 GOSUB 2360 WINDOW 2370 RETURN 2380 REM ~~~~~~~~~~~~~~~~~~~~ Main Menu ~~~~~~~~~~~~~~~~~~~~ 2390 GOSUB 240 CDOWN 2400 REPEAT 2410 UNTIL 2420 VARNAME 2430 VARNAME 2440 IF 2450 RETURN 2460 REM ~~~~~~~~~~~~~~~~~~~~ Options Menu ~~~~~~~~~~~~~~~~~~~~ 2470 REPEAT 2480 REPEAT 2490 UNTIL 250 WINDOW 2500 VARNAME 2510 VARNAME 2520 IF 2530 UNTIL 2540 VARNAME 2550 REM ~~~~~~~~~~~~~~~~~~~~ Screen Setup ~~~~~~~~~~~~~~~~~~~~ 2560 IF 2570 CLS 2580 EXTENSION (Index #0) (Token 0x80) 2590 WINDOPEN 260 VARNAME 2600 LOGIC 2610 SCREEN COPY 2620 IF 2630 IF 2640 VARNAME 2650 RETURN 2660 REM ~~~~~~~~~~~~~~~~~~~~ Read/Display Menu ~~~~~~~~~~~~~~~~~~~~ 2670 VARNAME 2680 REPEAT 2690 IF 270 PEN 2700 UNTIL 2710 PEN 2720 RETURN 2730 REM ~~~~~~~~~~~~~~~~~~~~ Delete window ~~~~~~~~~~~~~~~~~~~~ 2740 REM num= window to delete 2750 LOGIC 2760 RETURN 2770 REM ~~~~~~~~~~~~~~~~~~~~ Initialize window ~~~~~~~~~~~~~~~~~~~~ 2780 IF 2790 IF 280 LOCATE 2800 PEN 2810 SCREEN COPY 2820 REM ~~~~~~~~~~~~~~~~~~~~ Input routine ~~~~~~~~~~~~~~~~~~~~ 2830 IF 2840 VARNAME 2850 REPEAT 2860 REPEAT 2870 VARNAME 2880 IF 2890 IF 290 PEN 2900 IF 2910 IF 2920 IF 2930 LOCATE 2940 UNTIL 2950 IF 2960 LOCATE 2970 RETURN 2980 REM ~~~~~~~~~~~~~~~~~~~~ Count words ~~~~~~~~~~~~~~~~~~~~ 2990 VARNAME 30 REM 300 FOR 3000 REPEAT 3010 VARNAME 3020 VARNAME 3030 UNTIL 3040 RETURN 3050 REM ~~~~~~~~~~~~~~~~~~~~ Load lesson data ~~~~~~~~~~~~~~~~~~~~ 3060 VARNAME 3070 OPEN IN 3080 INPUT 3090 INPUT 310 VARNAME 3100 FOR 3110 INPUT 3120 FOR 3130 NEXT 3140 CLOSE 3150 VARNAME 3160 RETURN 3170 REM ~~~~~~~~~~~~~~~~~~~~ Display Main Menu ~~~~~~~~~~~~~~~~~~~~ 3180 VARNAME 3190 RESTORE 320 IF 3200 RETURN 3210 REM ~~~~~~~~~~~~~~~~~~~~ Display Option Menu ~~~~~~~~~~~~~~~~~~~~ 3220 VARNAME 3230 RESTORE 3240 RETURN 3250 REM ~~~~~~~~~~~~~~~~~~~~ Main Menu Options ~~~~~~~~~~~~~~~~~~~~ 3260 DATA 3270 REM ~~~~~~~~~~~~~~~~~~~~ Option Menu Options ~~~~~~~~~~~~~~~~~~~~ 3280 DATA 3290 REM ~~~~~~~~~~~~~~~~~~~~ Music ~~~~~~~~~~~~~~~~~~~~ 330 NEXT 3300 DATA 3310 DATA 3320 DATA 3330 DATA 3340 DATA 3350 REM ~~~~~~~~~~~~~~~~~~~~ Keyboard data ~~~~~~~~~~~~~~~~~~~~ 3360 DATA 3370 DATA 3380 REM ~~~~~~~~~~~~~~~~~~~~ Colour data ~~~~~~~~~~~~~~~~~~~~ 3390 DATA 340 IF 3400 DATA 3410 DATA 3420 REM ~~~~~~~~~~~~~~~~~~~~ Set up keyboard ~~~~~~~~~~~~~~~~~~~~ 3430 VARNAME 3440 FOR 3450 FOR 3460 VARNAME 3470 RETURN 3480 REM ~~~~~~~~~~~~~~~~~~~~ Lesson not loaded ~~~~~~~~~~~~~~~~~~~~ 3490 VARNAME 350 INC 3500 LOCATE 3510 LOCATE 3520 LOCATE 3530 LOCATE 3540 VARNAME 3550 RETURN 3560 REM ~~~~~~~~~~~~~~~~~~~~ Document not loaded ~~~~~~~~~~~~~~~~~~~~ 3570 VARNAME 3580 LOCATE 3590 LOCATE 360 WINDOW 3600 LOCATE 3610 LOCATE 3620 VARNAME 3630 RETURN 3640 REM ~~~~~~~~~~~~~~~~~~~~ Load document ~~~~~~~~~~~~~~~~~~~~ 3650 VARNAME 3660 VARNAME 3670 CLW 3680 VARNAME 3690 VARNAME 370 RETURN 3700 FOR 3710 VARNAME 3720 IF 3730 IF 3740 IF 3750 IF 3760 NEXT 3770 REM ~~~~~~~~~~~~~~~~~~~~ Create lessons ~~~~~~~~~~~~~~~~~~~~ 3780 CLEAR KEY 3790 VARNAME 380 REM ~~~~~~~~~~~~~~~~~~~~ Practice Typing ~~~~~~~~~~~~~~~~~~~~ 3800 REPEAT 3810 VARNAME 3820 FOR 3830 IF 3840 VARNAME 3850 IF 3860 REPEAT 3870 UNTIL 3880 VARNAME 3890 NEXT 390 VARNAME 3900 INC 3910 UNTIL 3920 VARNAME 3930 RETURN 3940 REM ~~~~~~~~~~~~~~~~~~~~ Word wrap ~~~~~~~~~~~~~~~~~~~~ 3950 FOR 3960 IF 3970 NEXT 3980 RETURN 3990 REM ~~~~~~~~~~~~~~~~~~~~ Hiscore init ~~~~~~~~~~~~~~~~~~~~ 40 REM ~~~~~~~~~~~~~~~~~~~~ Initialize ~~~~~~~~~~~~~~~~~~~~ 400 WINDOW 4000 FOR 4010 RETURN 4020 REM ~~~~~~~~~~~~~~~~~~~~ Got hiscore ~~~~~~~~~~~~~~~~~~~~ 4030 LOCATE 4040 VARNAME 4050 VARNAME 4060 VARNAME 4070 VARNAME 4080 RETURN 4090 REM ~~~~~~~~~~~~~~~~~~~~ Show hiscore ~~~~~~~~~~~~~~~~~~~~ 410 CDOWN 4100 CLW 4110 LOCATE 4120 FOR 4130 PEN 4140 RETURN 420 WINDOW 430 REPEAT 440 VARNAME 450 INC 460 VARNAME 470 UNTIL 480 VARNAME 490 VARNAME 50 IF 500 CLW 510 RETURN 520 REM ~~~~~~~~~~~~~~~~~~~~ Type a document ~~~~~~~~~~~~~~~~~~~~ 530 IF 540 VARNAME 550 REPEAT 560 WINDOW 570 CDOWN 580 WINDOW 590 VARNAME 60 KEY 600 PEN 610 LOCATE 620 PEN 630 FOR 640 GOSUB 650 VARNAME 660 IF 670 NEXT 680 IF 690 INC 70 DIM 700 WINDOW 710 RETURN 720 REM ~~~~~~~~~~~~~~~~~~~~ Credits ~~~~~~~~~~~~~~~~~~~~ 730 VARNAME 740 IF 750 PEN 760 PEN 770 PEN 780 PEN 790 PEN 80 RESTORE 800 LOCATE 810 LOCATE 820 LOCATE 830 VARNAME 840 RETURN 850 REM ~~~~~~~~~~~~~~~~~~~~ Show results ~~~~~~~~~~~~~~~~~~~~ 860 REM mistakes= no. mistakes. text$= total text. time= timer length 870 VARNAME 880 PEN 890 LOCATE 90 FOR 900 LOCATE 910 LOCATE 920 IF 930 PRINT 940 VARNAME 950 IF 960 LOCATE 970 IF 980 VARNAME 990 RETURN